unit ufrChart;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, ExtCtrls, TeeProcs, TeEngine, Chart, Series;

type
  TfrmChart = class(TFrame)
    Chart1: TChart;
    procedure Chart1DblClick(Sender: TObject);
  private
    FChartCaption: string;
    procedure SetChartCaption(const Value: string);
    { Private declarations }
  public
    { Public declarations }
    property ChartCaption : string read FChartCaption write SetChartCaption;
    procedure AddSeries(ASeries : TChartSeries);
  end;

implementation

{$R *.dfm}

{ TfrmChart }

procedure TfrmChart.SetChartCaption(const Value: string);
begin
  FChartCaption := Value;
  Chart1.Title.Text.Clear;
  Chart1.Title.Text.Add(Value);
end;

procedure TfrmChart.Chart1DblClick(Sender: TObject);
begin
  Chart1.CopyToClipboardBitmap;
end;

procedure TfrmChart.AddSeries(ASeries: TChartSeries);
begin
  Chart1.AddSeries(ASeries);
end;

end.
